home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Internet Tools 1993 July / Internet Tools.iso / RockRidge / security / cops / cops_104 / carp / carp.awk < prev    next >
Encoding:
AWK Script  |  1992-03-10  |  905 b   |  46 lines
  1. BEGIN { LPP=40; line=0; }
  2.  
  3. /COPS/ {
  4.   printf ("/title (%s) def\n",$0);
  5. }
  6.  
  7. /hostname/ {
  8.   #assume first three fields are "hostname     rep date"
  9.   printf "/headray [ ";
  10.   for (f=4; f <= NF; ++f) {
  11.     printf ("(%s) ",$f);
  12.   }
  13.   print "] def";
  14.   printf ("/numcols %d def\n",NF-3);
  15.   print "dotitle";
  16.   print "doheader";
  17.   FS = "|"
  18. }
  19.  
  20. /\|/ {
  21.   ++line;
  22.   #assumes spaces not tabs
  23.   host=substr($1,0,index($1," ")-1);
  24.   date=substr($1,index($1," "));
  25.   #breaks in the year 2000
  26.   date=substr(date,index(date,"1"));
  27.   date=substr(date,0,index(date," ")-1);
  28.  
  29.   printf ("(%s) (%s) newline\n",host,date);
  30.   for (f=2; f <= NF; ++f) {
  31.     if ($f == 0) print "  dofull";
  32.     else if ($f == 1) print "  dohalf";
  33.     else if ($f == 2) print "  doempty";
  34.     else print "  donothing";
  35.   }
  36. }
  37.  
  38. line != 0 && line%LPP == 0 {
  39.   print "showpage";
  40.   print "";
  41.   print "dotitle";
  42.   print "doheader";
  43. }
  44.  
  45. END { print "showpage" }
  46.